home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / Field Effects.cpt / Field Effects / card_2233.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  101 lines
  1. -- card: 2233 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2803
  5. -- name: 
  6.  
  7.  
  8. -- part 3 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=64 top=66 right=151 bottom=264
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   wait 50
  23.   if the mouseClick
  24.   then
  25.   rectchange
  26. else
  27.   if the ShiftKey ="down"
  28.   then
  29.   if the lockText of the target = "false"
  30.   then set the lockText of the target to "true"
  31. else set the lockText of the target to "false"
  32. end if
  33. end if
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part 4 (field)
  39. -- low flags: 01
  40. -- high flags: 0002
  41. -- rect: left=293 top=80 right=165 bottom=493
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 3
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: 
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   wait 50
  53.   if the mouseClick
  54.   then
  55.   rectchange
  56. else
  57.   if the ShiftKey ="down"
  58.   then
  59.   if the lockText of the target = "false"
  60.   then set the lockText of the target to "true"
  61. else set the lockText of the target to "false"
  62. end if
  63. end if
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 2 (field)
  69. -- low flags: 01
  70. -- high flags: 0002
  71. -- rect: left=156 top=120 right=257 bottom=378
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 3
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: 
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   wait 50
  83.   if the mouseClick
  84.   then
  85.   rectchange
  86. else
  87.   if the ShiftKey ="down"
  88.   then
  89.   if the lockText of the target = "false"
  90.   then set the lockText of the target to "true"
  91. else set the lockText of the target to "false"
  92. end if
  93. end if
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part contents for card part 2
  99. ----- text -----
  100.  
  101. More fields to play with!